home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 218
/
218.d81
/
b.c-64 f keys
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
1KB
|
47 lines
5 gosub41000
6 gosub1000
8 print"";:for b=1 to 12:print" ";:next
10 d=peek(186):if d<8 then d=8
20 a$="c-64 f keys.bas":poke53280,4
30 b$="l[207]a$,d"+chr$(13)+"r[213]"+chr$(13)
40 forx=1to10:poke630+x,asc(mid$(b$,x)):next
50 poke198,10:print"[144]";
60 end
1000 poke214,3:print:printtab(4)"[212]his program does not return
1001 [153][163]12)"to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
1002 [153]" and uses disk drive device number 8"
1003 [153]:[153][163]7)"(NULL)ress <(NULL)> to (NULL)uit (NULL)ow"
1004 [153][163]3)"(NULL)ress any other key to continue."
1005 [151]198,0:[146]198,1:[161]z$:[139]z$[179][177]"q"[167] [142]
1006 [137]40000
10000 n$[178]"b.c-64 f keys":d[178][194](186):[139] d[179]8 [167] d[178]8
10010 [160]15:[159]15,d,15,"s0:"[170]n$:[160]15:[148] n$,d:[149] n$,d:[128]
40000 dv[178][194](186):[139] dv[179]8 [167] dv[178]8
40005 [129]i[178]0[164]21:[151]828[170]i,8[170]i:[130]
40010 [139]dv[179]8[176]dv[177]29[176]dv[178]8[167]40030
40020 a[178][194](828):b[178][194](828[170]dv[171]8):[151]828,b:[151]828[170]dv[171]8,a
40030 a$[178]"hello connect":[129]j[178]8[164]29:i[178][194](828[170]j[171]8):[139]i[178]14[167][130]
40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
40060 [130]:[153]"load":[151]53272,23:[151]186,8:[128]
40070 q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
41000 [151]53280,0:[151]53281,0:[151]53272,22:[153]"load"
41002 [151]214,14:[153]
41004 [153][163]1)"list "
41005 [129]x[178]1[164]6
41006 [153][163]1)"print# "
41007 [130]
41013 [153][163]1)"poke "
41020 [140]:[129]x[178]1[164]4:[135]a$:[151]214,15[170]x:[153]
41022 [153][163]19[171][195](a$)[173]2)"print#"a$
41024 [130]
41030 t[178]ti[170]60
41031 [139]t[177]ti[167]41031
41032 [153]"":[142]
41050 [131]"val(NULL) len-64 asc(NULL)(NULL)len(NULL)right$(NULL)(NULL) (NULL)val(NULL)(NULL)
41051 data"[202]ames [212]. [202]ones
41052 [131]"(c) 2002 by mid$ & asc (NULL)ublishing, right$nc.
41053 data"www.loadstar.com